home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / 3078B.ZIP / PGRUN991.ZIP / PULLEY.LSP < prev    next >
Lisp/Scheme  |  1991-05-20  |  37KB  |  1,369 lines
  1.  
  2. ; *******  ParaDraft Application  ********
  3. ; Parametric Geomtry Program generated by PgPg! 
  4. ; Authored by   : User
  5. ; Application name : Pulley for V-belts with two grooves
  6. ; Dated         : Monday , 20-5-1991
  7. ; Started at    :  --  15:24:17
  8. ; Finished at   :  --  16:02:36
  9. ; ****************************************
  10. (princ "\nParaDraft application generated on Monday , 20-5-1991 with Professional Version 1.0P")
  11. (mode 0)(command "VSLIDE"(strcat *pgpg-dir* *pg-name*))
  12. (setq dia11 nil rad6 nil rad7 nil ang4 nil ang5 nil L1 nil L2 nil L3 nil L8 nil L9 nil L10 nil L12 nil L13 nil L14 nil L15 nil L16 nil L17 nil L18 nil L19 nil L20 nil L21 nil L22 nil L23 nil  ) 
  13. (take-value 'dia11 "dia11" 32.5801042)
  14. (take-value 'rad6 "rad6" 4.39203039)
  15. (take-value 'rad7 "rad7" 1.88105529)
  16. (take-value 'ang4 "ang4" 25.79291076)
  17. (take-value 'ang5 "ang5" 25.79257832)
  18. (take-value 'L1 "L1" 13.17380047)
  19. (take-value 'L2 "L2" 21.5085)
  20. (take-value 'L3 "L3" 21.5085)
  21. (take-value 'L8 "L8" 77.7144)
  22. (take-value 'L9 "L9" 13.17381553)
  23. (take-value 'L10 "L10" 2.67992)
  24. (take-value 'L12 "L12" 69.89100037)
  25. (take-value 'L13 "L13" 54.56332)
  26. (take-value 'L14 "L14" 75.6)
  27. (take-value 'L15 "L15" 97.800042)
  28. (take-value 'L16 "L16" 131.737453)
  29. (take-value 'L17 "L17" 32.495)
  30. (take-value 'L18 "L18" 52.4585)
  31. (take-value 'L19 "L19" 20.99999908)
  32. (take-value 'L20 "L20" 12.3119)
  33. (take-value 'L21 "L21" 97.4764)
  34. (take-value 'L22 "L22" 4.2634)
  35. (take-value 'L23 "L23" 4.2634)
  36. (command "REDRAW")
  37. (initget 1)
  38. (setq refpt (getpoint "\nInsertion point :"))
  39. (setq refangle (getval "\nInsertion angle:" 0.0))
  40.  
  41. (princ "Computing points ..please wait")
  42.  
  43. (setq *en* 
  44. (init refpt))(setq *dim-layer* "dim")(setq *cen-layer* "cen")
  45. (setq err 0.0)
  46. (command "COLOR""BYLAYER")
  47. (command "DIM1""DIMASZ" 0.01 )
  48. (command "DIM1""DIMTXT" 0.01 )
  49. (setvar "CMDECHO" 0)(MAKE_LAYER "CEN" 2)(setq RAD11(/ DIA11 2.0))
  50. (setq ANG4(D2R ANG4 ))
  51. (setq ANG5(D2R ANG5 ))
  52. (setq L24 (/ L8 2.0)  )
  53. (setq L25 L24 )
  54. (setq L26 (/ L17 2.0)  )
  55. (setq L27 L26 )
  56. (setq L28 (/ L18 2.0)  )
  57. (setq L29 L28 )
  58. (setq L30 (/ L21 2.0)  )
  59. (setq L31 L30 )
  60. (setq L32 (/ L20 2.0)  )
  61. (setq L33 L32 )
  62. (setq L34 (/ L13 2.0)  )
  63. (setq L35 L34 )
  64. (setq L36 (/ L14 2.0)  )
  65. (setq L37 L36 )
  66. (setq L38 (/ L15 2.0)  )
  67. (setq L39 L38 )
  68. (setq L40 (/ L16 2.0)  )
  69. (setq L41 L40 )
  70. (setq L42 (/ L3 2.0)  )
  71. (setq L43 L42 )
  72. (setq L44 (/ L2 2.0)  )
  73. (setq L45 L44 )
  74. (setq L46 rad6 )
  75. (setq L47 rad6 )
  76. (setq L48 rad6 )
  77. (setq L49 rad7 )
  78. (setq L50 rad7 )
  79. (setq L51 rad11 )
  80.  
  81. (setq pt1(delta refpt 
  82.                         0.0
  83.                         0.0
  84.         ))
  85. (setq pt2(delta refpt 
  86.                         ( + (x-of pt1) ( - L21 )) 
  87.                         ( + (y-of pt1) L19) 
  88.         ))
  89. (setq pt3(delta refpt 
  90.                         ( + (x-of pt1) ( - L21 )) 
  91.                         (y-of pt1)
  92.         ))
  93. (setq pt4(delta refpt 
  94.                         (x-of pt1)
  95.                         ( + (y-of pt1) L19) 
  96.         ))
  97. (setq pt219(polar 
  98.                          pt1 
  99.                          1.57079633 
  100.                         L41
  101.         ))
  102. (setq pt220(polar 
  103.                          pt1 
  104.                          0.0 
  105.                         ( - L30 )
  106.         ))
  107. (setq pt221(polar 
  108.                          pt1 
  109.                          1.57079633 
  110.                         ( - L40 )
  111.         ))
  112. (setq pt56(delta refpt 
  113.                         ( + (x-of pt1) L12) 
  114.                         (y-of pt1)
  115.         ))
  116. (setq pt201(polar 
  117.                          pt1 
  118.                          1.57079633 
  119.                         L35
  120.         ))
  121. (setq pt217(polar 
  122.                          pt1 
  123.                          1.57079633 
  124.                         ( - L34 )
  125.         ))
  126. (setq pt222(polar 
  127.                          pt1 
  128.                          1.57079633 
  129.                         L37
  130.         ))
  131. (setq pt223(polar 
  132.                          pt1 
  133.                          1.57079633 
  134.                         ( - L36 )
  135.         ))
  136. (setq pt224(polar 
  137.                          pt1 
  138.                          1.57079633 
  139.                         L39
  140.         ))
  141. (setq pt225(polar 
  142.                          pt1 
  143.                          1.57079633 
  144.                         ( - L38 )
  145.         ))
  146. (setq pt226(polar 
  147.                          pt1 
  148.                          0.0 
  149.                         ( - L23 )
  150.         ))
  151. (setq pt131(delta refpt 
  152.                         ( + (x-of pt1) ( - L30 )) 
  153.                         ( + (y-of pt1) L19) 
  154.         ))
  155. (setq pt185(delta refpt 
  156.                         ( + (x-of pt1) L12) 
  157.                         ( + (y-of pt1) L19) 
  158.         ))
  159. (setq pt202(delta refpt 
  160.                         ( + (x-of pt1) ( - L21 )) 
  161.                         ( + (y-of pt1) L35) 
  162.         ))
  163. (setq pt216(delta refpt 
  164.                         ( + (x-of pt1) ( - L21 )) 
  165.                         ( + (y-of pt1) ( - L34 )) 
  166.         ))
  167. (setq pt227(polar 
  168.                          pt2 
  169.                          0.0 
  170.                         L22
  171.         ))
  172. (setq pt228(polar 
  173.                          pt219 
  174.                          1.57079633 
  175.                         ( - L1 )
  176.         ))
  177. (setq pt229(polar 
  178.                          pt220 
  179.                          0.0 
  180.                         ( - L27 )
  181.         ))
  182. (setq pt230(polar 
  183.                          pt220 
  184.                          0.0 
  185.                         L26
  186.         ))
  187. (setq pt187(polar 
  188.                          pt220 
  189.                          0.0 
  190.                         ( - L25 )
  191.         ))
  192. (setq pt231(polar 
  193.                          pt220 
  194.                          0.0 
  195.                         L24
  196.         ))
  197. (setq pt78(delta refpt 
  198.                         ( + ( - L25 ) (x-of pt220)) 
  199.                         ( + (y-of pt1) L37) 
  200.         ))
  201. (setq pt79(delta refpt 
  202.                         ( + ( - L25 ) (x-of pt220)) 
  203.                         ( + (y-of pt1) ( - L36 )) 
  204.         ))
  205. (setq pt80(delta refpt 
  206.                         ( + ( - L25 ) (x-of pt220)) 
  207.                         ( + (y-of pt1) L39) 
  208.         ))
  209. (setq pt81(delta refpt 
  210.                         ( + ( - L25 ) (x-of pt220)) 
  211.                         ( + (y-of pt1) ( - L38 )) 
  212.         ))
  213. (setq pt232(polar 
  214.                          pt220 
  215.                          0.0 
  216.                         ( - L29 )
  217.         ))
  218. (setq pt233(polar 
  219.                          pt220 
  220.                          0.0 
  221.                         L28
  222.         ))
  223. (setq pt94(delta refpt 
  224.                         ( + L24 (x-of pt220)) 
  225.                         ( + (y-of pt1) L39) 
  226.         ))
  227. (setq pt95(delta refpt 
  228.                         ( + L24 (x-of pt220)) 
  229.                         ( + (y-of pt1) L37) 
  230.         ))
  231. (setq pt96(delta refpt 
  232.                         ( + L24 (x-of pt220)) 
  233.                         ( + (y-of pt1) ( - L36 )) 
  234.         ))
  235. (setq pt97(delta refpt 
  236.                         ( + L24 (x-of pt220)) 
  237.                         ( + (y-of pt1) ( - L38 )) 
  238.         ))
  239. (setq pt105(delta refpt 
  240.                         ( + ( - L27 ) (x-of pt220)) 
  241.                         ( + (y-of pt219) ( - L1 )) 
  242.         ))
  243. (setq pt114(delta refpt 
  244.                         ( + L26 (x-of pt220)) 
  245.                         ( + (y-of pt219) ( - L1 )) 
  246.         ))
  247. (setq pt191(delta refpt 
  248.                         ( + ( - L29 ) (x-of pt220)) 
  249.                         ( + (y-of pt1) L39) 
  250.         ))
  251. (setq pt192(delta refpt 
  252.                         ( + ( - L25 ) (x-of pt220)) 
  253.                         ( + (y-of pt1) L41) 
  254.         ))
  255. (setq pt197(delta refpt 
  256.                         ( + L24 (x-of pt220)) 
  257.                         ( + (y-of pt1) L41) 
  258.         ))
  259. (setq pt198(delta refpt 
  260.                         ( + L28 (x-of pt220)) 
  261.                         ( + (y-of pt1) L39) 
  262.         ))
  263. (setq pt199(delta refpt 
  264.                         ( + L28 (x-of pt220)) 
  265.                         ( + (y-of pt1) L37) 
  266.         ))
  267. (setq pt200(delta refpt 
  268.                         ( + L24 (x-of pt220)) 
  269.                         ( + (y-of pt1) L35) 
  270.         ))
  271. (setq pt203(delta refpt 
  272.                         ( + ( - L25 ) (x-of pt220)) 
  273.                         ( + (y-of pt1) L35) 
  274.         ))
  275. (setq pt204(delta refpt 
  276.                         ( + ( - L29 ) (x-of pt220)) 
  277.                         ( + (y-of pt1) L37) 
  278.         ))
  279. (setq pt205(delta refpt 
  280.                         ( + L28 (x-of pt220)) 
  281.                         ( + (y-of pt1) ( - L36 )) 
  282.         ))
  283. (setq pt206(delta refpt 
  284.                         ( + L28 (x-of pt220)) 
  285.                         ( + (y-of pt1) ( - L38 )) 
  286.         ))
  287. (setq pt207(delta refpt 
  288.                         ( + L24 (x-of pt220)) 
  289.                         ( + (y-of pt1) ( - L40 )) 
  290.         ))
  291. (setq pt212(delta refpt 
  292.                         ( + ( - L25 ) (x-of pt220)) 
  293.                         ( + (y-of pt1) ( - L40 )) 
  294.         ))
  295. (setq pt213(delta refpt 
  296.                         ( + ( - L29 ) (x-of pt220)) 
  297.                         ( + (y-of pt1) ( - L38 )) 
  298.         ))
  299. (setq pt214(delta refpt 
  300.                         ( + ( - L29 ) (x-of pt220)) 
  301.                         ( + (y-of pt1) ( - L36 )) 
  302.         ))
  303. (setq pt215(delta refpt 
  304.                         ( + ( - L25 ) (x-of pt220)) 
  305.                         ( + (y-of pt1) ( - L34 )) 
  306.         ))
  307. (setq pt218(delta refpt 
  308.                         ( + L24 (x-of pt220)) 
  309.                         ( + (y-of pt1) ( - L34 )) 
  310.         ))
  311. (setq pt234(polar 
  312.                          pt221 
  313.                          1.57079633 
  314.                         L9
  315.         ))
  316. (setq pt149(delta refpt 
  317.                         ( + (x-of pt220) L26) 
  318.                         ( + L9 (y-of pt221)) 
  319.         ))
  320. (setq pt158(delta refpt 
  321.                         ( + (x-of pt220) ( - L27 )) 
  322.                         ( + L9 (y-of pt221)) 
  323.         ))
  324. (setq pt235(delta refpt 
  325.                         ( + (x-of pt56) rad11) 
  326.                         (y-of pt56)
  327.         ))
  328. (setq pt236(polar 
  329.                          pt56 
  330.                          0.0 
  331.                         ( - L33 )
  332.         ))
  333. (setq pt59(delta refpt 
  334.                         ( + ( - L33 ) (x-of pt56)) 
  335.                         ( + (y-of pt1) L19) 
  336.         ))
  337. (setq pt60(delta refpt 
  338.                         ( + L32 (x-of pt56)) 
  339.                         ( + (y-of pt1) L19) 
  340.         ))
  341. (setq pt237(polar 
  342.                          pt56 
  343.                          0.0 
  344.                         L32
  345.         ))
  346. (setq pt14(delta refpt 
  347.                         ( + ( - L45 ) (x-of pt229)) 
  348.                         ( + (y-of pt1) L41) 
  349.         ))
  350. (setq pt17(delta refpt 
  351.                         ( + L44 (x-of pt229)) 
  352.                         ( + (y-of pt1) L41) 
  353.         ))
  354. (setq pt37(delta refpt 
  355.                         ( + L44 (x-of pt229)) 
  356.                         ( + (y-of pt1) ( - L40 )) 
  357.         ))
  358. (setq pt40(delta refpt 
  359.                         ( + ( - L45 ) (x-of pt229)) 
  360.                         ( + (y-of pt1) ( - L40 )) 
  361.         ))
  362. (setq pt20(delta refpt 
  363.                         ( + ( - L43 ) (x-of pt230)) 
  364.                         ( + (y-of pt1) L41) 
  365.         ))
  366. (setq pt23(delta refpt 
  367.                         ( + L42 (x-of pt230)) 
  368.                         ( + (y-of pt1) L41) 
  369.         ))
  370. (setq pt31(delta refpt 
  371.                         ( + L42 (x-of pt230)) 
  372.                         ( + (y-of pt1) ( - L40 )) 
  373.         ))
  374. (setq pt34(delta refpt 
  375.                         ( + ( - L43 ) (x-of pt230)) 
  376.                         ( + (y-of pt1) ( - L40 )) 
  377.         ))
  378. (setq pt238(polar 
  379.                          pt219 
  380.                          1.57079633 
  381.                         ( - L46 )
  382.         ))
  383. (setq pt239(polar 
  384.                          pt14 
  385.                         (chg-quad (+ 1.5707963(chg-quad (  +  1.57079633 ANG4
  386.  )) ))
  387.                         ( - L47 )
  388.         ))
  389. (setq pt240(polar 
  390.                          pt31 
  391.                         (chg-quad (+ 1.5707963(chg-quad (  +  1.57079633 ANG4
  392.  )) ))
  393.                         L48
  394.         ))
  395. (setq pt241(polar 
  396.                          pt14 
  397.                         (chg-quad (+ 1.5707963(chg-quad (  +  1.57079633 ANG4
  398.  )) ))
  399.                         L49
  400.         ))
  401. (setq pt242(polar 
  402.                          pt228 
  403.                          1.57079633 
  404.                         L50
  405.         ))
  406. (setq pt58(polar 
  407.                          pt56 
  408.                          1.57079633 
  409.                         ( - L51 )
  410.         ))
  411. (setq pt52(delta refpt 
  412.                         ( + (x-of pt58) ( - L12 )) 
  413.                         ( + (y-of pt58) ( - L10 )) 
  414.         ))
  415. (setq pt53(intersect 
  416.                         (make-line  pt3  1.57079633 )
  417.                         (make-line  pt52  0.0 )
  418.                          Nil 
  419.         ))
  420. (setq pt92(intersect 
  421.                         (make-line  pt226  1.57079633 )
  422.                         (make-line  pt58  0.0 )
  423.                          Nil 
  424.         ))
  425. (setq pt55(intersect 
  426.                         (make-line  pt227  1.57079633 )
  427.                         (make-line  pt58  0.0 )
  428.                          Nil 
  429.         ))
  430. (setq pt174(intersect 
  431.                         (make-line  pt220  1.57079633 )
  432.                         (make-line  pt58  0.0 )
  433.                          Nil 
  434.         ))
  435. (setq pt57(intersect 
  436.                         (make-arc  pt56  pt235 )
  437.                         (make-line  pt236  1.57079633 )
  438.                          '+ 
  439.         ))
  440. (setq pt54(intersect 
  441.                         (make-line  pt227  1.57079633 )
  442.                         (make-line  pt57  0.0 )
  443.                          Nil 
  444.         ))
  445. (setq pt61(intersect 
  446.                         (make-arc  pt56  pt235 )
  447.                         (make-line  pt237  1.57079633 )
  448.                          '+ 
  449.         ))
  450. (setq pt64(intersect 
  451.                         (make-line  pt220  1.57079633 )
  452.                         (make-line  pt57  0.0 )
  453.                          Nil 
  454.         ))
  455. (setq pt91(intersect 
  456.                         (make-line  pt57  0.0 )
  457.                         (make-line  pt226  1.57079633 )
  458.                          Nil 
  459.         ))
  460. (setq pt66(delta refpt 
  461.                         ( + (x-of pt1) L12) 
  462.                         ( + ( - L10 ) (y-of pt58)) 
  463.         ))
  464. (setq pt65(intersect 
  465.                         (make-arc  pt56  pt66 )
  466.                         (make-line  pt236  1.57079633 )
  467.                          '+ 
  468.         ))
  469. (setq pt180(intersect 
  470.                         (make-arc  pt56  pt66 )
  471.                         (make-line  pt237  1.57079633 )
  472.                          '+ 
  473.         ))
  474. (setq pt67(intersect 
  475.                         (make-line  pt3  1.57079633 )
  476.                         (make-line  pt65  0.0 )
  477.                          Nil 
  478.         ))
  479. (setq pt68(intersect 
  480.                         (make-line  pt1  1.57079633 )
  481.                         (make-line  pt65  0.0 )
  482.                          Nil 
  483.         ))
  484. (setq pt193(intersect 
  485.                         (make-line  pt14 (chg-quad (  +  1.57079633 ANG4
  486.  )) )
  487.                         (make-line  pt228  0.0 )
  488.                          Nil 
  489.         ))
  490. (setq pt243(polar 
  491.                          pt193 
  492.                         (chg-quad (+ 1.5707963(chg-quad (  +  1.57079633 ANG4
  493.  )) ))
  494.                         ( - L47 )
  495.         ))
  496. (setq pt26(intersect 
  497.                         (make-line  pt238  0.0 )
  498.                         (make-line  pt239 (chg-quad (  +  1.57079633 ANG4
  499.  )) )
  500.                          Nil 
  501.         ))
  502. (setq pt244(polar 
  503.                          pt193 
  504.                         (chg-quad (+ 1.5707963(chg-quad (  +  1.57079633 ANG4
  505.  )) ))
  506.                         L49
  507.         ))
  508. (setq pt27(intersect 
  509.                         (make-line  pt241 (chg-quad (  +  1.57079633 ANG4
  510.  )) )
  511.                         (make-line  pt242  0.0 )
  512.                          Nil 
  513.         ))
  514. (setq pt194(intersect 
  515.                         (make-line  pt17 (chg-quad (  -  1.57079633 ANG5
  516.  )) )
  517.                         (make-line  pt228  0.0 )
  518.                          Nil 
  519.         ))
  520. (setq pt195(intersect 
  521.                         (make-line  pt20 (chg-quad (  +  1.57079633 ANG4
  522.  )) )
  523.                         (make-line  pt228  0.0 )
  524.                          Nil 
  525.         ))
  526. (setq pt196(intersect 
  527.                         (make-line  pt23 (chg-quad (  -  1.57079633 ANG5
  528.  )) )
  529.                         (make-line  pt228  0.0 )
  530.                          Nil 
  531.         ))
  532. (setq pt245(delta refpt 
  533.                         ( + (x-of pt26) rad6) 
  534.                         (y-of pt26)
  535.         ))
  536. (setq pt13(tangency 
  537.                         (make-line  pt219  0.0 )
  538.                         (make-arc  pt26  pt245 )
  539.         ))
  540. (setq pt15(tangency 
  541.                         (make-line  pt14 (chg-quad (  +  1.57079633 ANG4
  542.  )) )
  543.                         (make-arc  pt26  pt245 )
  544.         ))
  545. (setq pt246(delta refpt 
  546.                         ( + (x-of pt27) rad7) 
  547.                         (y-of pt27)
  548.         ))
  549. (setq pt104(tangency 
  550.                         (make-line  pt228  0.0 )
  551.                         (make-arc  pt27  pt246 )
  552.         ))
  553. (setq pt208(intersect 
  554.                         (make-line  pt31 (chg-quad (  +  1.57079633 ANG4
  555.  )) )
  556.                         (make-line  pt234  0.0 )
  557.                          Nil 
  558.         ))
  559. (setq pt209(intersect 
  560.                         (make-line  pt34 (chg-quad (  -  1.57079633 ANG5
  561.  )) )
  562.                         (make-line  pt234  0.0 )
  563.                          Nil 
  564.         ))
  565. (setq pt210(intersect 
  566.                         (make-line  pt37 (chg-quad (  +  1.57079633 ANG4
  567.  )) )
  568.                         (make-line  pt234  0.0 )
  569.                          Nil 
  570.         ))
  571. (setq pt211(intersect 
  572.                         (make-line  pt40 (chg-quad (  -  1.57079633 ANG5
  573.  )) )
  574.                         (make-line  pt234  0.0 )
  575.                          Nil 
  576.         ))
  577. (princ "Computed points\n")(gc)
  578. (make_layer "0" 1)
  579. (make_layer "cen" 1)
  580. (make_layer "dim" 1)
  581. (make_layer "0" 1)
  582. (command "LINE" pt2 pt3 "" )
  583. (command "LINE" pt4 pt1 "" )
  584. (command "LINE" pt52 pt1 "" )
  585. (command "LINE" pt53 pt3 "" )
  586. (command "LINE" pt54 pt55 "" )
  587. (command "LINE" pt59 pt60 "" )
  588. (command "LINE" pt57 pt59 "" )
  589. (command "LINE" pt61 pt60 "" )
  590. (command "LINE" pt64 pt54 "" )
  591. (command "LINE" pt54 pt67 "" )
  592. (command "LINE" pt91 pt68 "" )
  593. (command "LINE" pt64 pt91 "" )
  594. (command "LINE" pt91 pt92 "" )
  595. (command "LINE" pt94 pt95 "" )
  596. (command "LINE" pt78 pt80 "" )
  597. (command "LINE" pt81 pt79 "" )
  598. (command "LINE" pt96 pt97 "" )
  599. (command "LINE" pt191 pt80 "" )
  600. (setq ent1 (entlast))(setq ent1 (entlast))(command "LINE" pt80 pt192 "" )
  601. (setq ent2 (entlast))(setq ent2 (entlast))(command "LINE" pt192 pt14 "" )
  602. (setq ent3 (entlast))(setq ent3 (entlast))(command "LINE" pt14 pt193 "" )
  603. (setq ent4 (entlast))(setq ent4 (entlast))(command "LINE" pt193 pt105 "" )
  604. (setq ent5 (entlast))(setq ent5 (entlast))(command "LINE" pt105 pt194 "" )
  605. (setq ent6 (entlast))(setq ent6 (entlast))(command "LINE" pt194 pt17 "" )
  606. (setq ent7 (entlast))(setq ent7 (entlast))(command "LINE" pt17 pt20 "" )
  607. (setq ent8 (entlast))(setq ent8 (entlast))(command "LINE" pt20 pt195 "" )
  608. (setq ent9 (entlast))(setq ent9 (entlast))(setq ent10 (entlast))(command "LINE" pt195 pt114 "" )
  609. (setq ent11 (entlast))(setq ent11 (entlast))(command "LINE" pt114 pt196 "" )
  610. (setq ent12 (entlast))(setq ent12 (entlast))(command "LINE" pt196 pt23 "" )
  611. (setq ent13 (entlast))(setq ent13 (entlast))(setq ent14 (entlast))(command "LINE" pt23 pt197 "" )
  612. (setq ent15 (entlast))(setq ent15 (entlast))(command "LINE" pt197 pt94 "" )
  613. (setq ent16 (entlast))(setq ent16 (entlast))(command "LINE" pt94 pt198 "" )
  614. (setq ent17 (entlast))(setq ent17 (entlast))(command "LINE" pt198 pt199 "" )
  615. (setq ent18 (entlast))(setq ent18 (entlast))(command "LINE" pt199 pt95 "" )
  616. (setq ent19 (entlast))(setq ent19 (entlast))(command "LINE" pt95 pt200 "" )
  617. (setq ent20 (entlast))(setq ent20 (entlast))(command "LINE" pt200 pt201 "" )
  618. (setq ent21 (entlast))(setq ent21 (entlast))(command "LINE" pt201 pt4 "" )
  619. (setq ent22 (entlast))(setq ent22 (entlast))(command "LINE" pt4 pt131 "" )
  620. (setq ent23 (entlast))(command "LINE" pt131 pt2 "" )
  621. (setq ent24 (entlast))(command "LINE" pt2 pt202 "" )
  622. (setq ent25 (entlast))(setq ent25 (entlast))(command "LINE" pt202 pt203 "" )
  623. (setq ent26 (entlast))(setq ent26 (entlast))(command "LINE" pt203 pt78 "" )
  624. (setq ent27 (entlast))(setq ent27 (entlast))(command "LINE" pt78 pt204 "" )
  625. (setq ent28 (entlast))(setq ent28 (entlast))(command "LINE" pt204 pt191 "" )
  626. (setq ent29 (entlast))(setq ent29 (entlast))(command "LINE" pt205 pt206 "" )
  627. (setq ent30 (entlast))(setq ent30 (entlast))(command "LINE" pt206 pt97 "" )
  628. (setq ent31 (entlast))(setq ent31 (entlast))(command "LINE" pt97 pt207 "" )
  629. (setq ent32 (entlast))(setq ent32 (entlast))(command "LINE" pt207 pt31 "" )
  630. (setq ent33 (entlast))(setq ent33 (entlast))(command "LINE" pt31 pt208 "" )
  631. (setq ent34 (entlast))(setq ent34 (entlast))(command "LINE" pt208 pt149 "" )
  632. (setq ent35 (entlast))(setq ent35 (entlast))(command "LINE" pt149 pt209 "" )
  633. (setq ent36 (entlast))(setq ent36 (entlast))(command "LINE" pt209 pt34 "" )
  634. (setq ent37 (entlast))(setq ent37 (entlast))(command "LINE" pt34 pt37 "" )
  635. (setq ent38 (entlast))(setq ent38 (entlast))(command "LINE" pt37 pt210 "" )
  636. (setq ent39 (entlast))(setq ent39 (entlast))(command "LINE" pt210 pt158 "" )
  637. (setq ent40 (entlast))(setq ent40 (entlast))(command "LINE" pt158 pt211 "" )
  638. (setq ent41 (entlast))(setq ent41 (entlast))(command "LINE" pt211 pt40 "" )
  639. (setq ent42 (entlast))(setq ent42 (entlast))(command "LINE" pt40 pt212 "" )
  640. (setq ent43 (entlast))(setq ent43 (entlast))(command "LINE" pt212 pt81 "" )
  641. (setq ent44 (entlast))(setq ent44 (entlast))(command "LINE" pt81 pt213 "" )
  642. (setq ent45 (entlast))(setq ent45 (entlast))(command "LINE" pt213 pt214 "" )
  643. (setq ent46 (entlast))(setq ent46 (entlast))(command "LINE" pt214 pt79 "" )
  644. (setq ent47 (entlast))(setq ent47 (entlast))(command "LINE" pt79 pt215 "" )
  645. (setq ent48 (entlast))(setq ent48 (entlast))(command "LINE" pt215 pt216 "" )
  646. (setq ent49 (entlast))(setq ent49 (entlast))(command "LINE" pt216 pt53 "" )
  647. (setq ent50 (entlast))(setq ent50 (entlast))(command "LINE" pt53 pt55 "" )
  648. (setq ent51 (entlast))(command "LINE" pt55 pt174 "" )
  649. (setq ent52 (entlast))(command "LINE" pt174 pt92 "" )
  650. (setq ent53 (entlast))(command "LINE" pt92 pt52 "" )
  651. (setq ent54 (entlast))(command "LINE" pt52 pt217 "" )
  652. (setq ent55 (entlast))(setq ent55 (entlast))(command "LINE" pt217 pt218 "" )
  653. (setq ent56 (entlast))(setq ent56 (entlast))(command "LINE" pt218 pt96 "" )
  654. (setq ent57 (entlast))(setq ent57 (entlast))(command "LINE" pt96 pt205 "" )
  655. (setq ent58 (entlast))(setq ent58 (entlast))(command "ARC""C" pt56 pt57 pt58)
  656. (setq ent59 (entlast))(command "ARC""C" pt56 pt65 pt66)
  657. (command "ARC""C" pt56 pt58 pt61)
  658. (command "ARC""C" pt56 pt66 pt180)
  659.  
  660. (command "FILLET""R"rad6
  661. "FILLET"( ssadd  ent29 ( ssadd  ent1 ( ssadd))) ) 
  662. (setq ent60 (entlast))
  663. (setq ent61 (entlast))
  664.  
  665. (command "FILLET""R"rad7
  666. "FILLET"( ssadd  ent2 ( ssadd  ent3 ( ssadd))) ) 
  667. (setq ent62 (entlast))
  668. (setq ent63 (entlast))
  669.  
  670. (command "FILLET""R"rad6
  671. "FILLET"( ssadd  ent3 ( ssadd  ent4 ( ssadd))) ) 
  672. (setq ent64 (entlast))
  673. (setq ent65 (entlast))
  674.  
  675. (command "FILLET""R"rad7
  676. "FILLET"( ssadd  ent4 ( ssadd  ent5 ( ssadd))) ) 
  677. (setq ent66 (entlast))
  678. (setq ent67 (entlast))
  679.  
  680. (command "FILLET""R"rad7
  681. "FILLET"( ssadd  ent6 ( ssadd  ent7 ( ssadd))) ) 
  682. (setq ent68 (entlast))
  683. (setq ent69 (entlast))
  684.  
  685. (command "FILLET""R"rad6
  686. "FILLET"( ssadd  ent7 ( ssadd  ent8 ( ssadd))) ) 
  687. (setq ent70 (entlast))
  688. (setq ent71 (entlast))
  689.  
  690. (command "FILLET""R"rad6
  691. "FILLET"( ssadd  ent8 ( ssadd  ent9 ( ssadd))) ) 
  692. (setq ent72 (entlast))
  693. (setq ent73 (entlast))
  694.  
  695. (command "FILLET""R"rad7
  696. "FILLET"( ssadd  ent9 ( ssadd  ent11 ( ssadd))) ) 
  697. (setq ent74 (entlast))
  698. (setq ent75 (entlast))
  699.  
  700. (command "FILLET""R"rad7
  701. "FILLET"( ssadd  ent12 ( ssadd  ent13 ( ssadd))) ) 
  702. (setq ent76 (entlast))
  703. (setq ent77 (entlast))
  704.  
  705. (command "FILLET""R"rad6
  706. "FILLET"( ssadd  ent13 ( ssadd  ent15 ( ssadd))) ) 
  707. (setq ent78 (entlast))
  708. (setq ent79 (entlast))
  709.  
  710. (command "FILLET""R"rad7
  711. "FILLET"( ssadd  ent15 ( ssadd  ent16 ( ssadd))) ) 
  712. (setq ent80 (entlast))
  713. (setq ent81 (entlast))
  714.  
  715. (command "FILLET""R"rad6
  716. "FILLET"( ssadd  ent17 ( ssadd  ent18 ( ssadd))) ) 
  717. (setq ent82 (entlast))
  718. (setq ent83 (entlast))
  719.  
  720. (command "FILLET""R"rad6
  721. "FILLET"( ssadd  ent18 ( ssadd  ent19 ( ssadd))) ) 
  722. (setq ent84 (entlast))
  723. (setq ent85 (entlast))
  724.  
  725. (command "FILLET""R"rad7
  726. "FILLET"( ssadd  ent20 ( ssadd  ent21 ( ssadd))) ) 
  727. (setq ent86 (entlast))
  728. (setq ent87 (entlast))
  729.  
  730. (command "FILLET""R"rad7
  731. "FILLET"( ssadd  ent21 ( ssadd  ent22 ( ssadd))) ) 
  732. (setq ent88 (entlast))
  733. (setq ent89 (entlast))
  734.  
  735. (command "FILLET""R"rad7
  736. "FILLET"( ssadd  ent25 ( ssadd  ent26 ( ssadd))) ) 
  737. (setq ent90 (entlast))
  738. (setq ent91 (entlast))
  739.  
  740. (command "FILLET""R"rad7
  741. "FILLET"( ssadd  ent26 ( ssadd  ent27 ( ssadd))) ) 
  742. (setq ent92 (entlast))
  743. (setq ent93 (entlast))
  744.  
  745. (command "FILLET""R"rad6
  746. "FILLET"( ssadd  ent28 ( ssadd  ent29 ( ssadd))) ) 
  747. (setq ent94 (entlast))
  748. (setq ent95 (entlast))
  749.  
  750. (command "FILLET""R"rad6
  751. "FILLET"( ssadd  ent58 ( ssadd  ent30 ( ssadd))) ) 
  752. (setq ent96 (entlast))
  753. (setq ent97 (entlast))
  754.  
  755. (command "FILLET""R"rad6
  756. "FILLET"( ssadd  ent30 ( ssadd  ent31 ( ssadd))) ) 
  757. (setq ent98 (entlast))
  758. (setq ent99 (entlast))
  759.  
  760. (command "FILLET""R"rad7
  761. "FILLET"( ssadd  ent32 ( ssadd  ent33 ( ssadd))) ) 
  762. (setq ent100 (entlast))
  763. (setq ent101 (entlast))
  764.  
  765. (command "FILLET""R"rad6
  766. "FILLET"( ssadd  ent33 ( ssadd  ent34 ( ssadd))) ) 
  767. (setq ent102 (entlast))
  768. (setq ent103 (entlast))
  769.  
  770. (command "FILLET""R"rad7
  771. "FILLET"( ssadd  ent34 ( ssadd  ent35 ( ssadd))) ) 
  772. (setq ent104 (entlast))
  773. (setq ent105 (entlast))
  774.  
  775. (command "FILLET""R"rad7
  776. "FILLET"( ssadd  ent36 ( ssadd  ent37 ( ssadd))) ) 
  777. (setq ent106 (entlast))
  778. (setq ent107 (entlast))
  779.  
  780. (command "FILLET""R"rad6
  781. "FILLET"( ssadd  ent37 ( ssadd  ent38 ( ssadd))) ) 
  782. (setq ent108 (entlast))
  783. (setq ent109 (entlast))
  784.  
  785. (command "FILLET""R"rad6
  786. "FILLET"( ssadd  ent38 ( ssadd  ent39 ( ssadd))) ) 
  787. (setq ent110 (entlast))
  788. (setq ent111 (entlast))
  789.  
  790. (command "FILLET""R"rad7
  791. "FILLET"( ssadd  ent39 ( ssadd  ent40 ( ssadd))) ) 
  792. (setq ent112 (entlast))
  793. (setq ent113 (entlast))
  794.  
  795. (command "FILLET""R"rad7
  796. "FILLET"( ssadd  ent41 ( ssadd  ent42 ( ssadd))) ) 
  797. (setq ent114 (entlast))
  798. (setq ent115 (entlast))
  799.  
  800. (command "FILLET""R"rad6
  801. "FILLET"( ssadd  ent42 ( ssadd  ent43 ( ssadd))) ) 
  802. (setq ent116 (entlast))
  803. (setq ent117 (entlast))
  804.  
  805. (command "FILLET""R"rad7
  806. "FILLET"( ssadd  ent43 ( ssadd  ent44 ( ssadd))) ) 
  807. (setq ent118 (entlast))
  808. (setq ent119 (entlast))
  809.  
  810. (command "FILLET""R"rad6
  811. "FILLET"( ssadd  ent45 ( ssadd  ent46 ( ssadd))) ) 
  812. (setq ent120 (entlast))
  813. (setq ent121 (entlast))
  814.  
  815. (command "FILLET""R"rad6
  816. "FILLET"( ssadd  ent46 ( ssadd  ent47 ( ssadd))) ) 
  817. (setq ent122 (entlast))
  818. (setq ent123 (entlast))
  819.  
  820. (command "FILLET""R"rad7
  821. "FILLET"( ssadd  ent48 ( ssadd  ent49 ( ssadd))) ) 
  822. (setq ent124 (entlast))
  823. (setq ent125 (entlast))
  824.  
  825. (command "FILLET""R"rad7
  826. "FILLET"( ssadd  ent49 ( ssadd  ent50 ( ssadd))) ) 
  827. (setq ent126 (entlast))
  828. (setq ent127 (entlast))
  829.  
  830. (command "FILLET""R"rad7
  831. "FILLET"( ssadd  ent55 ( ssadd  ent56 ( ssadd))) ) 
  832. (setq ent128 (entlast))
  833. (setq ent129 (entlast))
  834.  
  835. (command "FILLET""R"rad7
  836. "FILLET"( ssadd  ent56 ( ssadd  ent57 ( ssadd))) ) 
  837. (setq ent130 (entlast))
  838. (setq ent131 (entlast))
  839.  
  840. (draw-cline  pt64 211.14229 1.57079633  ) 
  841. (draw-cline  pt58 108.911477 1.57079633  ) 
  842. (draw-cline  pt187 375.731 0.0  ) 
  843. (draw-cline  pt114 73.33871 1.57079633  ) 
  844. (draw-cline  pt105 76.00255 1.57079633  ) 
  845. (setq *detailing* T) (init refpt)
  846. (setq L52 10.03129971 )
  847. (command "DIM1""HORIZ" pt20  pt23 (setq pt247(polar 
  848.                          pt23 
  849.                          1.57079633 
  850.                         L52
  851.         )) "")
  852. (setq L53 25.43978904 )
  853. (command "DIM1""HORIZ" pt79  pt97 (setq pt248(polar 
  854.                          pt97 
  855.                          1.57079633 
  856.                         ( - L53 )
  857.         )) "")
  858. (setq L54 29.762 )
  859. (command "DIM1""VERT" pt31  pt149 (setq pt249(polar 
  860.                          pt31 
  861.                          0.0 
  862.                         L54
  863.         )) "")
  864. (setq L55 31.29840037 )
  865. (command "DIM1""VERT" pt58  pt66 (setq pt250(polar 
  866.                          pt66 
  867.                          0.0 
  868.                         ( - L55 )
  869.         )) "")
  870. (setq L56 16.4504 )
  871. (command "DIM1""VERT" pt200  pt216 (setq pt251(polar 
  872.                          pt216 
  873.                          0.0 
  874.                         ( - L56 )
  875.         )) "")
  876. (setq L57 37.4118 )
  877. (command "DIM1""VERT" pt78  pt79 (setq pt252(polar 
  878.                          pt78 
  879.                          0.0 
  880.                         ( - L57 )
  881.         )) "")
  882. (setq L58 45.6136 )
  883. (command "DIM1""VERT" pt80  pt81 (setq pt253(polar 
  884.                          pt81 
  885.                          0.0 
  886.                         ( - L58 )
  887.         )) "")
  888. (setq L59 72.9459 )
  889. (command "DIM1""VERT" pt13  pt40 (setq pt254(polar 
  890.                          pt13 
  891.                          0.0 
  892.                         ( - L59 )
  893.         )) "")
  894. (setq L60 15.84462956 )
  895. (command "DIM1""HORIZ" pt105  pt114 (setq pt255(polar 
  896.                          pt105 
  897.                          1.57079633 
  898.                         ( - L60 )
  899.         )) "")
  900. (setq L61 9.6082793 )
  901. (command "DIM1""HORIZ" pt204  pt199 (setq pt256(polar 
  902.                          pt204 
  903.                          1.57079633 
  904.                         ( - L61 )
  905.         )) "")
  906. (setq L62 33.1573 )
  907. (command "DIM1""VERT" pt59  pt1 (setq pt257(polar 
  908.                          pt59 
  909.                          0.0 
  910.                         L62
  911.         )) "")
  912. (setq L63 9.39739035 )
  913. (command "DIM1""HORIZ" pt59  pt60 (setq pt258(polar 
  914.                          pt60 
  915.                          1.57079633 
  916.                         L63
  917.         )) "")
  918. (setq L64 65.95478869 )
  919. (command "DIM1""HORIZ" pt53  pt1 (setq pt259(polar 
  920.                          pt53 
  921.                          1.57079633 
  922.                         ( - L64 )
  923.         )) "")
  924. (setq L65 5.83555956 )
  925. (command "DIM1""HORIZ" pt55  pt53 (setq pt260(polar 
  926.                          pt55 
  927.                          1.57079633 
  928.                         L65
  929.         )) "")
  930.  
  931. (command "DIM1""radius" (list ent65  pt14 )(strcat  "R" (rtos rad6 2) " TYP."))
  932.  
  933. (command "DIM1""radius" (list ent67  pt193 )(strcat  "R" (rtos rad7 2) " TYP."))
  934.  
  935. (command "DIM1""diameter" (list ent59  (midpt  pt57  pt58 ) )"")
  936. (setq pt25(intersect 
  937.                         (make-line  pt230  1.57079633 )
  938.                         (make-line  pt20 (chg-quad (  +  1.57079633 ANG4
  939.  )) )
  940.                          Nil 
  941.         ))(setq L66 100.0 )
  942. (setq pt261(polar 
  943.                          pt25 
  944.                          1.57079633 
  945.                         L66
  946.         )) (setq L67 100.0 )
  947. (setq pt262(polar 
  948.                          pt25 
  949.                         (chg-quad (  +  1.57079633 ANG4
  950.  )) 
  951.                         L67
  952.         )) (command "LINE" pt25  pt261  "" )
  953. (setq ent132 (entlast))(command "LINE" pt25  pt262  "" )
  954. (setq ent10 (entlast))(command "DIM1""ANGULAR" (list ent132  pt261 ) (list ent10  pt262 ) (midpt  pt261  pt262 ) "" "" )
  955. (setq L68 110.0 )
  956. (setq pt263(polar 
  957.                          pt25 
  958.                         (chg-quad (  -  1.57079633 ANG5
  959.  )) 
  960.                         L68
  961.         )) (setq L69 110.0 )
  962. (setq pt264(polar 
  963.                          pt25 
  964.                          1.57079633 
  965.                         L69
  966.         )) (command "LINE" pt25  pt263  "" )
  967. (setq ent14 (entlast))(command "LINE" pt25  pt264  "" )
  968. (setq ent132 (entlast))(command "DIM1""ANGULAR" (list ent14  pt263 ) (list ent132  pt264 ) (midpt  pt263  pt264 ) "" "" )
  969.  
  970. (command "DIM1""DIMASZ" 3.0 )
  971. (command "DIM1""DIMTXT" 3.0 )
  972. (command "DIM1""UPDATE"(getset) "" )
  973. ( command "CHANGE""P" "" "LAYER" *dim-layer* )
  974.  
  975. (command "PEDIT"(list ent60 pt1 ) "Y""J"
  976.   ent60 
  977.   ent1 
  978.   ent2 
  979.   ent62 
  980.   ent3 
  981.   ent64 
  982.   ent4 
  983.   ent66 
  984.   ent5 
  985.   ent6 
  986.   ent68 
  987.   ent7 
  988.   ent70 
  989.   ent8 
  990.   ent72 
  991.   ent9 
  992.   ent74 
  993.   ent11 
  994.   ent12 
  995.   ent76 
  996.   ent13 
  997.   ent78 
  998.   ent15 
  999.   ent80 
  1000.   ent16 
  1001.   ent17 
  1002.   ent82 
  1003.   ent18 
  1004.   ent84 
  1005.   ent19 
  1006.   ent20 
  1007.   ent86 
  1008.   ent21 
  1009.   ent88 
  1010.   ent22 
  1011.   ent23 
  1012.   ent24 
  1013.   ent25 
  1014.   ent90 
  1015.   ent26 
  1016.   ent92 
  1017.   ent27 
  1018.   ent28 
  1019.   ent94 
  1020.   ent29  "" "X")
  1021. (setq ent133 (entlast))
  1022. (command "PEDIT"(list ent96 pt1 ) "Y""J"
  1023.   ent96 
  1024.   ent30 
  1025.   ent98 
  1026.   ent31 
  1027.   ent32 
  1028.   ent100 
  1029.   ent33 
  1030.   ent102 
  1031.   ent34 
  1032.   ent104 
  1033.   ent35 
  1034.   ent36 
  1035.   ent106 
  1036.   ent37 
  1037.   ent108 
  1038.   ent38 
  1039.   ent110 
  1040.   ent39 
  1041.   ent112 
  1042.   ent40 
  1043.   ent41 
  1044.   ent114 
  1045.   ent42 
  1046.   ent116 
  1047.   ent43 
  1048.   ent118 
  1049.   ent44 
  1050.   ent45 
  1051.   ent120 
  1052.   ent46 
  1053.   ent122 
  1054.   ent47 
  1055.   ent48 
  1056.   ent124 
  1057.   ent49 
  1058.   ent126 
  1059.   ent50 
  1060.   ent51 
  1061.   ent52 
  1062.   ent53 
  1063.   ent54 
  1064.   ent55 
  1065.   ent128 
  1066.   ent56 
  1067.   ent130 
  1068.   ent57 
  1069.   ent58  "" "X")
  1070. (setq ent134 (entlast))(command "SELECT" ent133  ent134  "" )
  1071. (command "HATCH""U""45.0" "2.0" "" "P" "" )
  1072.  
  1073.  
  1074.  
  1075. (rotate-it refpt refangle)
  1076. (princ "\n Drawing created by a ParaDraft application")(mode 1) ( setq refpt nil 
  1077.  pt1 nil 
  1078.  pt2 nil 
  1079.  pt3 nil 
  1080.  pt4 nil 
  1081.  pt5 nil 
  1082.  pt6 nil 
  1083.  pt7 nil 
  1084.  pt8 nil 
  1085.  pt9 nil 
  1086.  pt10 nil 
  1087.  pt11 nil 
  1088.  pt12 nil 
  1089.  pt13 nil 
  1090.  pt14 nil 
  1091.  pt15 nil 
  1092.  pt16 nil 
  1093.  pt17 nil 
  1094.  pt18 nil 
  1095.  pt19 nil 
  1096.  pt20 nil 
  1097.  pt21 nil 
  1098.  pt22 nil 
  1099.  pt23 nil 
  1100.  pt24 nil 
  1101.  pt25 nil 
  1102.  pt26 nil 
  1103.  pt27 nil 
  1104.  pt28 nil 
  1105.  pt29 nil 
  1106.  pt30 nil 
  1107.  pt31 nil 
  1108.  pt32 nil 
  1109.  pt33 nil 
  1110.  pt34 nil 
  1111.  pt35 nil 
  1112.  pt36 nil 
  1113.  pt37 nil 
  1114.  pt38 nil 
  1115.  pt39 nil 
  1116.  pt40 nil 
  1117.  pt41 nil 
  1118.  pt42 nil 
  1119.  pt43 nil 
  1120.  pt44 nil 
  1121.  pt45 nil 
  1122.  pt46 nil 
  1123.  pt47 nil 
  1124.  pt48 nil 
  1125.  pt49 nil 
  1126.  pt50 nil 
  1127.  pt51 nil 
  1128.  pt52 nil 
  1129.  pt53 nil 
  1130.  pt54 nil 
  1131.  pt55 nil 
  1132.  pt56 nil 
  1133.  pt57 nil 
  1134.  pt58 nil 
  1135.  pt59 nil 
  1136.  pt60 nil 
  1137.  pt61 nil 
  1138.  pt62 nil 
  1139.  pt63 nil 
  1140.  pt64 nil 
  1141.  pt65 nil 
  1142.  pt66 nil 
  1143.  pt67 nil 
  1144.  pt68 nil 
  1145.  pt69 nil 
  1146.  pt70 nil 
  1147.  pt71 nil 
  1148.  pt72 nil 
  1149.  pt73 nil 
  1150.  pt74 nil 
  1151.  pt75 nil 
  1152.  pt76 nil 
  1153.  pt77 nil 
  1154.  pt78 nil 
  1155.  pt79 nil 
  1156.  pt80 nil 
  1157.  pt81 nil 
  1158.  pt82 nil 
  1159.  pt83 nil 
  1160.  pt84 nil 
  1161.  pt85 nil 
  1162.  pt86 nil 
  1163.  pt91 nil 
  1164.  pt92 nil 
  1165.  pt93 nil 
  1166.  pt94 nil 
  1167.  pt95 nil 
  1168.  pt96 nil 
  1169.  pt97 nil 
  1170.  pt99 nil 
  1171.  pt100 nil 
  1172.  pt102 nil 
  1173.  pt104 nil 
  1174.  pt105 nil 
  1175.  pt108 nil 
  1176.  pt109 nil 
  1177.  pt110 nil 
  1178.  pt113 nil 
  1179.  pt114 nil 
  1180.  pt116 nil 
  1181.  pt117 nil 
  1182.  pt119 nil 
  1183.  pt121 nil 
  1184.  pt122 nil 
  1185.  pt123 nil 
  1186.  pt124 nil 
  1187.  pt126 nil 
  1188.  pt127 nil 
  1189.  pt130 nil 
  1190.  pt131 nil 
  1191.  pt133 nil 
  1192.  pt136 nil 
  1193.  pt138 nil 
  1194.  pt141 nil 
  1195.  pt143 nil 
  1196.  pt144 nil 
  1197.  pt145 nil 
  1198.  pt146 nil 
  1199.  pt148 nil 
  1200.  pt149 nil 
  1201.  pt152 nil 
  1202.  pt153 nil 
  1203.  pt154 nil 
  1204.  pt157 nil 
  1205.  pt158 nil 
  1206.  pt161 nil 
  1207.  pt162 nil 
  1208.  pt163 nil 
  1209.  pt166 nil 
  1210.  pt168 nil 
  1211.  pt169 nil 
  1212.  pt171 nil 
  1213.  pt172 nil 
  1214.  pt173 nil 
  1215.  pt174 nil 
  1216.  pt176 nil 
  1217.  pt179 nil 
  1218.  pt180 nil 
  1219.  pt181 nil 
  1220.  pt182 nil 
  1221.  pt183 nil 
  1222.  pt184 nil 
  1223.  pt185 nil 
  1224.  pt186 nil 
  1225.  pt187 nil 
  1226.  pt188 nil 
  1227.  pt189 nil 
  1228.  pt190 nil 
  1229.  pt191 nil 
  1230.  pt192 nil 
  1231.  pt193 nil 
  1232.  pt194 nil 
  1233.  pt195 nil 
  1234.  pt196 nil 
  1235.  pt197 nil 
  1236.  pt198 nil 
  1237.  pt199 nil 
  1238.  pt200 nil 
  1239.  pt201 nil 
  1240.  pt202 nil 
  1241.  pt203 nil 
  1242.  pt204 nil 
  1243.  pt205 nil 
  1244.  pt206 nil 
  1245.  pt207 nil 
  1246.  pt208 nil 
  1247.  pt209 nil 
  1248.  pt210 nil 
  1249.  pt211 nil 
  1250.  pt212 nil 
  1251.  pt213 nil 
  1252.  pt214 nil 
  1253.  pt215 nil 
  1254.  pt216 nil 
  1255.  pt217 nil 
  1256.  pt218 nil 
  1257.  pt219 nil 
  1258.  pt220 nil 
  1259.  pt221 nil 
  1260.  pt222 nil 
  1261.  pt223 nil 
  1262.  pt224 nil 
  1263.  pt225 nil 
  1264.  pt226 nil 
  1265.  pt227 nil 
  1266.  pt228 nil 
  1267.  pt229 nil 
  1268.  pt230 nil 
  1269.  pt231 nil 
  1270.  pt232 nil 
  1271.  pt233 nil 
  1272.  pt234 nil 
  1273.  pt235 nil 
  1274.  pt236 nil 
  1275.  pt237 nil 
  1276.  pt238 nil 
  1277.  pt239 nil 
  1278.  pt240 nil 
  1279.  pt241 nil 
  1280.  pt242 nil 
  1281.  pt243 nil 
  1282.  pt244 nil 
  1283.  pt245 nil 
  1284.  pt246 nil 
  1285.  pt247 nil 
  1286.  pt248 nil 
  1287.  pt249 nil 
  1288.  pt250 nil 
  1289.  pt251 nil 
  1290.  pt252 nil 
  1291.  pt253 nil 
  1292.  pt254 nil 
  1293.  pt255 nil 
  1294.  pt256 nil 
  1295.  pt257 nil 
  1296.  pt258 nil 
  1297.  pt259 nil 
  1298.  pt260 nil 
  1299.  pt261 nil 
  1300.  pt262 nil 
  1301.  pt263 nil 
  1302.  pt264 nil 
  1303.  L1 nil 
  1304.  L2 nil 
  1305.  L3 nil 
  1306.  L8 nil 
  1307.  L9 nil 
  1308.  L10 nil 
  1309.  L12 nil 
  1310.  L13 nil 
  1311.  L14 nil 
  1312.  L15 nil 
  1313.  L16 nil 
  1314.  L17 nil 
  1315.  L18 nil 
  1316.  L19 nil 
  1317.  L20 nil 
  1318.  L21 nil 
  1319.  L22 nil 
  1320.  L23 nil 
  1321.  L24 nil 
  1322.  L25 nil 
  1323.  L26 nil 
  1324.  L27 nil 
  1325.  L28 nil 
  1326.  L29 nil 
  1327.  L30 nil 
  1328.  L31 nil 
  1329.  L32 nil 
  1330.  L33 nil 
  1331.  L34 nil 
  1332.  L35 nil 
  1333.  L36 nil 
  1334.  L37 nil 
  1335.  L38 nil 
  1336.  L39 nil 
  1337.  L40 nil 
  1338.  L41 nil 
  1339.  L42 nil 
  1340.  L43 nil 
  1341.  L44 nil 
  1342.  L45 nil 
  1343.  L46 nil 
  1344.  L47 nil 
  1345.  L48 nil 
  1346.  L49 nil 
  1347.  L50 nil 
  1348.  L51 nil 
  1349.  L52 nil 
  1350.  L53 nil 
  1351.  L54 nil 
  1352.  L55 nil 
  1353.  L56 nil 
  1354.  L57 nil 
  1355.  L58 nil 
  1356.  L59 nil 
  1357.  L60 nil 
  1358.  L61 nil 
  1359.  L62 nil 
  1360.  L63 nil 
  1361.  L64 nil 
  1362.  L65 nil 
  1363.  L66 nil 
  1364.  L67 nil 
  1365.  L68 nil 
  1366.  L69 nil 
  1367.  ) 
  1368. (gc) (princ) ; Program generated at  :  --  16:06:18
  1369.